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1 1 MODULE network_server (IDENT = ‘v04-000', 
§ ¢ MAIN = network server, 
ADDRESSING_MODE(EXTERNAL=GENERAL)) = 
: BEGIN 
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NAME WO OONOUS 


Modified by: 


v03-004 PRBO337 Paul Beck 27-Jun-1984 16:33 
Change default timeout from 1 minute to 5 minutes. 


v003 TMHOO03 Tim Halvorsen 07-Apr-1983 
Add support for direct execution of an object image, 
if the object filespec contains an explicit ".EXE™. 
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AUTHOR: Tim Halvorsen, June 1982 
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oo 


v002 im Halvorsen 24-Feb-1983 


TMHOO02 T 
Add support for EPIDs by using the IPID returned 


wen 

a 006 1! 

: ? 0907 } i eeeeeeeeeeeeeeeeeeeneeeeeeeeeeeeeeeeedeeeeeeeeeteeeeeeereneeeeneeereeenerene 
; :* : 
3 9 $009 1 !® (COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ? 
; W 0010 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; \} Bet : i ALL RIGHTS RESERVED. * 
; ' * 
; ig $018 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; (16 0014 1 !* ONLY IN ACCORDANCE WITH TERM S$ LICENSE AND WITH THE * 
. oS 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR AN THER * 
; 1 Bai8 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
PS 017 1 !* OQ ERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: 18 at i * TRANSFERRED. * 
Ps H % 
3 0 BoSt 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; ¢ 88 ¢ : ? CORPORATION. * 
$ 'e ® 
; 4 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 $2 oo H : * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
: : % 
ee i bose 1 !e * 
3 4 oo : ; ROAR ARERR E AEE RE REET AEA AAAAAAAAAAAAETAAAA AAAS 
: 30 0080 | 

3 1 0031 1 

; g $038 1 

3 0035 1 ! ABSTRACT: 

; 4 0034 1 

3 5 0035 1 This program is used to enable a process to wait for an incomin 

; 6 0036 1 DECnet logical Link connection, and then accept the logical Lin 

$ 3 0037 1 request by invoking the correct procedure using CLI CHAIN. This 

3 8 0038 1 s used to allow a single process to handle many logical Link 

: is st : requests, and reduce the overhead involved in process creation. 

; 41 0 41 1} ENVIRONMENT: 

3 “§ 004 \ VAX/VMS operating system. unprivileged user mode, 

> 45 1 

; 646 1 

:; 47 1 

; «648 1 

3 49 1 

; 1 

a: } 

3 33 1 

; & 1 

: 33 1 

; 6 1 

eS 1 


So 


| 


vba 
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3 


2 8 ad ss ss te 


' 
; 
; 
v001 
i 
i 
i 


; Include files 


LIBRARY ‘SYSSLIBRARY: STARLET’; 
LIBRARY ‘SHRLIBS:NET'; 


iSosto-t9He 01:58:95 yKett ot ieg=52 ye. 05742 


by DECLSERV to index the SPI database, rather than 
using the EPID returned by GETJPI. 


TMHOO01 Tim Halvorsen 7-Feb-1983 

Add code to display where each connect request comes 
from (by bh pag ee the NCB), so that .LOG files can 
be more easily read. 


! VAX/VMS common definitions 
! NETACP control Q10 definitions 


nannies — 4 
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vOe-000" 1328e8- 138 93:29:47 NETACP. SRCISERVER.B32; . (2) 
; 7% «1! ; 
3 f e ! : Table of contents : 
; 28 ae ; 
me 3 B78 1 FORWARD ROUTINE e 
3 0 79 «4 network_server, ! Main routine ‘ 
; 1 080 1 timeout_ast: NOVALUE, ! Timeout AST ; 
; ¢ 081 1 issue_mailbox_read: NOVALUE, ' Issue network mailbox read ‘ 
; 0 § 1 net_interrupt: NOVALUE, ! Mailbox attention AST ; 
; : Boe? : fao_buf fer; ! Invoke FAO and return descriptor ; 
; O88 1! ; 
; $ 1! Literals ° 
: 89 oa 1 3 
: 90 089 1 LITERAL ; 
; Wi 0090 1 true = 1 : 
i 38 0091 1 false = 0; : 
BL : 
; 9S 0094 1 ! Macros : 
; of 009 1 : 
: 98 0097 1 MACRO ; 
; WP m 0098 1 fao(string) = 
; 100 ™ 0099 1 fao_buffer(ZASCID string 
; 13) Bigs ’ ZIF SLENGTH GTR 1 ZTHEN ,%REMAINING %F1)2%, 
; 108 ” 8186 1 write line(string) = 
: 104 m™ 0103 1 LIBSPUT_OUTPUT< fao(string 
; 4 Hs : ZIF ZLENGTH GTR 1 XTHEN ,ZREMAINING 2F1))%, 
: 107 " 196 1 signal_if_error(command) = 
; 108 ™ 0107 1 BEGIN 
; 109 m™ 0108 1 LOCAL 
Sie we 
; 11g mO111 1 status = command; 
Bi a Bee al 
> 115 mO114 1 BEGIN 
; 116 M0115 1 SIGNAL(.status); : 
> 117 m O16 1 RETURN .status OR sts$m_inhib_msg; 
3 138 m 011 1 END; 
gs 3 13 1 END2; 
: ist 120 1! 
cs : 121 1 | Own storage 
ie BEL! 
: 125 104 1 LITERAL | 
3 : $ ; i ' mbx_maxmsg = 128; ! Maximum size of mailbox message 
Pes 127 1 
3; 1 5 128 1 net_channel: WORD, ' Channel to ACP | 
. ¥ 4 9 1 mbx_channel: WORD ! Channel to assoc. mailbox 
. oss 130 1 mbx_message: VECTOR Cmbx_maxmsg,BYTE], ! Mailbox input buffer 

| 
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TWORK_SERVER 1b-se -1984 01:39: AX-11 Bliss-32 V4.0-74 P N 
Vbu~000 12788871882 93:28:87 «ENR TAdeCSRESseavensosee4 29° (3) V 
: ! ; } ; ! mbx_iosb:  S$BBLOCK (8); ! 1/0 status block for mailbox 
; 1 133 15 
3 ; 5 , ¢ : } External routines 
: 1 136 1 
| 1 § 1 EXTERNAL ROUTINE 
se 1 3 1 Libgasnewth mbx, ! Assign with assoc. mailbox 
: 140 1 1 Lib$set_logical, ! Define supervisor mode logical name 
3; «161 140 1 Lib$Srun_program, ! Chain to another program 
; 146 0141 1 Lib$Sdo_command, ! Chain a CLI command string 
3 14 o1eg 1 Lib$put_output, ! Write to SYSSOUTPUT 
3 «144 1435 #1 str$concat; ! Concatenate strings together 


} 
Ee EEE 


Kk 5 
vou-0007 1erSep-19be 12:49:81 ENETACPLSRESSERVER- B30; 


ROUTINE network _server = 


This routine is the entry point to the program 
Inputs: 

None 
Outputs: 

Routine value = status code 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 

BEGIN 

LOCAL 

nfb: SBBLOCK ECrnfb$c_length+20*4], ! Network function block 
! (room for 20 field requests) 


PERE QEXAEQ MIAN BP 


iosb: $BBL 
time_buf: VEC 
time_desc: VE 


! Binary time quadword 
u 8 ' Return buffer 
buffer_desc: 


keys: 
key_desc: 


nfb_desc: verre C2] ! Descriptor of NFB 
I 
delta_time: V 
buffer: V 
, ' Descriptor of above buffer 


t $c_length + 3#4), 
2 
| Descriptor of above buffer 


z2zammnz 


© 


*BYTE], i Buffer for timeout specifier 
! Descriptor of timeout specifier 
) 
4+nfb$c_ctx_sizel, ! Buffer for search key & context 
. ' Pointer into return buffer 
! Command string 
dsc$b_class] = dsc$k_class_d, 


dsc$w_length] = 0 
qoesa_potaters = 6), 
ToR C 


' 1/0 status block 
4+44+nfb$c_ctx_size), 


ae < 
mam 
Te 


ptr: 
cmd_desc: 


v 
rj 
Mm 


ncb_desc: VEC ' Descriptor of NCB 


—s 
PPP AASIVIVI 
ARRANVLSSSISARANV AS SSIS TILER IS SRVSERFLUNAS SOUS 


00090908 SI NIN NSIS NNO OO 


SSSLESRAVLSESSVEALANSS SSNS ARAN A SSSISALERVIS SVS AK IS Oe ne 


ascii_ncb_desc: VECTOR (2), ! Descriptor of ASCII portion of NCB 


ee bb bs bb a tn is tb > a db a tt tt a tk ttt lt 


a a a kk a kd hd 
SOOSOSOOSOOCSCOCOCOCOCOOCOSSOOSOCOSOSOOOSCOCSOOOOCOCOSOOOOOOCOOOO OOOO OOOOOOOOOO 


a 
86 filespec: VECTOR fs. ' Descriptor of procedure filespec 
87 prcnam: VECTOR 2 . pote seer of process name 
88 ipid, ' Our IPID 
9 epid, ' Our EPID 
item_list: SBBLOCK (10#4) 

8 PRESET ( ‘Be = a id 

Ve e = p -P ° 
9 1 0,32,0) = 
94 1 12,6,32,0) = 6), 
95 1 status; 
38 1 
9 1 BIND c 
4 : default_time = ZASCID ‘0 00:05:00': SBBLOCK; 
00 1 ! 
BS } Initialize some stack local variables with dynamic pointers 


<z 


@Drm 


B3oet Page 56 
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03 


| 
d Ci)_= nfb; | 
“des tia ="t me_buf; 
pe 
“list (4,0,32.0) = epid; | 


Get our own EPID for Later lookup of our server parameters 


v 


CSOOOSOSOSOOOOOSOSOSOOCOOOSOOSOSOSOSOOSSSOOOSSSCOSOSCOSOOCOOCOCOOOOOOOOOOOOOOOOOOO 


signal_if_error( 
SGETJPICITMLST = item_list)); ! Get our EPID 


! 
Assign a channel to the network ACP | 
H | 


signal if_error( 
LIBSASN_WTH_MBX(ZASCID ‘_NET:', Assign channel to NETACP 
mailbox MAXMSG,BUFQU0 
Channel to NETACP 
Channel to mailbox 


vuvuvWv 


net..channel 
mbx_channel)); 


Issue a read on the associated mailbox, so that we can receive 
notification of network broadcast messages. This is done so that 
we can detect the network shutting down. 


issue_mailbox_read(); ! Issue mailbox read 


i Set our process name to something which indicates that we are a network 
' server waiting for work. This has the effect of wiping out the previous 
: process name set by the previous connect to this process. 


SEES LESSER SIS LOOP ON Scan SSETE OE 


Ooo 
PON OOO WOU UI —OOOd NOU PUM ODO NOME UII OD Mae 


PIPOPIPIPINIPINIPINPIPYPIPNIPIPPOPIPINIPIPYIPYIPIPIPYPIPYIPIPIPIPIPIPUPINPININIPININPINININYD 


PERE EEF RWW WWIII RNINIMINININININ 4 3 OOOO 


prcnam (0) = .buffer_desc (0); ! Make descriptor of scratch buffer 
prcnam (1) = .buffer_desc (1); 

44 P SFAO(ZASCID "*SERVER_!Xw', ' Generate a onteue process name | 

4 e prcnam, ' Output buffer descriptor 

4 a prcnam (0), ' Place to return Length 

“tA 5 -epid); ! Use Last 4 digits of EPID 

49 $ ; SSETPRN(PRCNAM = prcnam); ' Set our process name 

50 $8 ! (ignore any errors) 

3) $2 , 

5 af i Schedule a timer, so that if the following Q10 does not complete within 

20 26 a reasonable amount of time, we can go away (since there was no work to do). 

5 54 2 

5 P 0255 status = STRNLOG(LOGNAM = ZASCID "NETSERVERSTIMEOUT’, ! Get timeout value 

58 P 2$ RSLBUF = time_desc, 

59 25 RSLLEN = time_desc (0)); 


a 5 
ramets rane te ceed beat hg pe tt Poce 45 


— 


NETWORK SERVER 


; 260 : 
: $2 o 33 rae NEQ ss$_normal ! If not explicitly specified, ‘ 
: 265 0261 BEGIN | ; 
> 264 86 time_desc Fo} = ,default_time pgsc$u. length di ; 
265 63 t ine desc 1] = .default=time Cdsc$a-pointer); ; 
: 569 65 , ; 
; 268 P 96 signal_if_error( ; 
; 269 P 026 SBINTIM(TIMBUF = time_desc, ! Translate time specifier to binary : 
: £9 0 re TIMADR = delta_time)); ; 
: 27 P o 3 signal_if_error( : 
; ef P 0271 SSETIAMR(DAYTIM = delta_time, ! Start timer : 
; 274 0 Le: ASTADR = timeout _ast)); ! Address of AST routine ; 
: $f 0574 5 i 
: 277 6 75 2 | Tell NETACP that we are available for a connect request. The Q10W : 
: re 8 re ; will complete when a connect has been assigned to us. . 
: 280 0278 ; 
er +) 0279 ea pa Lag rs Bee th,nfb); ! Pre-zero NFB fields ; 
: 8 rs nfb (nfb$b_fct] = n b$c_declserv; ! Tell NETACP we are available for work , 
; 284 . 8 Ht status = enced - > BOS _ACPSONTROL.« ! Issue control function 
3 = ,net_channel, 
: 286 P 0584 10SB = iosb, 
: 3H ose? Pl = nfb_desc); ! Address of NFB descriptor 
; 289 osee IF NOT .status ! If error detected, 
: 290 0288 OR NOT (status = .iosb (0,0,16,0]) 
; a $434 2 THEN 
3 ; 3 By ff ,stetus EQL ss$_abort ! If we timed out, 
: 294 0998 BEGIN 
3; (av 029 SDASSGN(CHAN = .net_channel); ! Deassign the ACP channel 
3 343 OSoe 3 sts$k_severe OR sts$m_inhib_msg; ' Return ‘‘fatal’’ from program 
3 38 a9 EL 
; 300 0 98 SIGNAL(.status); ! else signal the error 
3 Bt 444 yn age = .met_channel);  ! Deassign the ACP channel 
: rue; 
: 08 0303 END; 
; 305 | 08 ipid = .iosb (4,0,32,0); ! Get our IPID returned by DECLSERV 
; oF 0305 CHSFILL(O,nfb$c_length,nfb); ! Pre-zero NFB fields 
; 309 09 nfb (nfb$b_fct] = nfb$c_fc_show; ' Request ‘‘show'’ function 
; 310 be nfb (nfb$b_database] = Afb$c_db_spi; ' of server process database 
3 «6311 0 nfb (nfb$l-srch_key] = nfb$c_spi_pid; |! for our process 
3 \¢ 19 nfb (nfb$b_oper] = ntbSc.op Sal: ! by checking if field EQL P2 value 
: 14 if CHSMOVE (4*4, UPLIT LONG( ' Request the following fields: | 
ae 1 nfb$c_spi_ncb, ! Network connect bloc 
3; 316 14 nfb$c_spi_sfi, ! Procedure filespec | 

| 


ee = 4 


:23. YAX=11_Bliss-32 v4.0-74 p 8 | 
Gf PMA shes szevee o3504 — 


oc 


N 5 
wean see IEScH8Ht 
' 


! Process name 


ptr = CHSFIND_CH(.ncb_desc [0], .ncb_desc [1], '/'); 


ascii_ncb_desc £0} = ptr - sncb_gesc C1); 


ascii_ncb_desc -ncb_desc [ 


oo 


write_line(' Connect request received at '2D', 9); 
write_line(' from r mote, process ‘AS’, ascii_ncb_desc); 
write_line(' for object “!AS'", filespec); 


MEW —O CONOU EWN OOM 


o 


a 
> 
ato 
- 
® 
‘6 
ee 
_ 
> 
e 
~~ 
© 
- 
See 
. 


SSETPRN(PRCNAM = prcnam)); ' Set our process name 


s S17 0315 nfb$c_spi_pnm, 

; 18 18 nibss -engor tise) 

; 19 nfb CAfb$Sl_fldidd); 

: 1 0 i8 keys (0, 3 0) = 0; ! Zero count of fields in P4 (unused) 
; g 9 0 @ keys (4.0,32.0] = .ipid; i Search value = our IPID 
: ? 8 1 keys (8,9,16.0) = 0; ! Context area = at beginning 

: 5 PO g Status = SQIOW(FUNC = IOS_ACPCONTROL, ! Issue control function | 
: 326 P 0304 CHAN = .net_channel, 
3 7 P 0325 10SB = jiosb, 

3 8 P 8 $ Pl = nfb_desc, ! Address of NDB descriptor 

3 9 Pp P2 = ney desc, ' Address of key buffer descriptor 

: 9 0 3 P4 = buffer_desc); ! Address of return buffer descriptor 
: § ; 0 IF NOT .status ! If_error detected, 

3 33 ; 1 een NOT (status = .iosb (0,0,16,0)) 

; 33 335 BEGIN 

: 336 334 SIGNAL(.status); ! then stop looping 

3 Bor $42 SDASSGN(CHAN = .net_channel); ! Deassign the ACP channel 

; 338 336 RETURN true; 

; 339 337 END; 

; 340 338 

3 rt $2) ptr = buffer (0); ! Point to first string in buffer 

: rk 341 ncb_desc (0) = .ptr (0,0,16,0); ! Construct descriptor of NCB 

; 344 306 ncb_desc (1) = .ptr + ej , 

; 345 343 ptr-= .ptr + 2 + .ptr £6,0,16,0); ! Skip by string in buffer 

; 323 345 filespec [0] = .ptr (0,0,16,0]; ! Construct descriptor of procedure 

3 $ 6 filespec C1] = .ptr + éj 

3 36 ptr = .ptr + 2 + .ptr §,0,16,0); ! Skip by string in buffer 

: 35 9 prcnam fo} = .ptr (0,0,16,0); ! Construct descriptor of process name 
. 350 prcnam (1) = .ptr + 2; 

3 2 1 ptr = .ptr + 2+ .ptr (0,0,16,0); ! Skip by string in buffer 

; 35 ; 

s 35 4 

3 3 5 

: 35 

3 0 

3 

: 5 
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=SSe 


| 
signal_if_error( | 
signal_if_error( 
| 
| 


NETWORK _ SERVER 


LIBSSET_LOGICAL(ZASCID ‘SYSSNET', 
ncb_desc) 


dsc$b_class] = ds 
dsc$a_pointer] = 


rror 
ONCAT (cmd desc, 
ZASCID ‘@', filespec)); 


IF NOT CHSFAIL(CHSFIND_SUB( 
efilespec (0), .files 
4, UPLIT BYTE(' .EXE'))) 


signal if_error( 
2 LIBSRON_PROGRAM( filespec)) 


signal _if_error( 
LIBSDO_COMMAND(cmd_desc)); 


gSk.class_d; C 


vv 
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code after this point. 
AND do not return 


The only way we get here is 


VW 


www 
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WIAA Ww 


250 70245 
Referenced LOCAL symbol EPID is probably not initialized 


00550, 


45 4D 49 54 


1 
1 
: 


pec CI 


! Chain to program (EXIT AND CHAIN) 


! Else, chain to command Line 


! Return successfully 


0000 P.AAA: 


2 
: 


>> 


Oorows 
> >> 
aon 


SOOSOCCO 
—==90 
~v0y tv yU UY UD OUD 
. . . a 2 3s — 
> 


oO OOOOOCSCO 
IN et ay Se yas 
COLL LOONOSO om 
. . . 
>>> FF FF 
>>> 
zero 


g se 1 
o-Sep-1 


SE 


Define SYSSNET to NCB 


reate dynamic string descriptor 
Indicate no dynamic string yet 


! Create ‘‘afilespec’’ command 


f -EXE found in filespec, 


Both LIBSRUN_PROGRAM and 
en cause immediately program exit. 
hey fail. 


tL 
“ADDRESS 
LONG 

R 


-ADDRESS P.AAG 
eASCII \NETSERVERSTIMEOQUT\<0><0><0> 


«LONG 


-ADDRESS_P 


LONG 


-ADDRESS P.AAL 


NETWORK SERVER 


SPLIT$,NOWRT ,NOEXE,2 


\$ 00:95 :00\<0><0> 
17694730 

P.AAC 

\ WE] 4 \s0><0><0> 
17694725 


-ADDRESS P.AAE 
ASCII ssERyER 'xW\<0><0> 
ONG 17694730 


13 
2121028, 302121027, 302121029, 0 


ern osenvER 
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20 


33 8 


D 2d 


o 
Oo 
an 
vw 
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2D 
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00 
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& 
1h-s6 =1984 01:39:23 AX-11 Bliss-32 V4.0-74 
12-80 8=1 3h 04:23: 1 NETACP. SRC SEaveR 93001 
9 . 7C P.AAN ASCII \ ~~STTrTrrrirtiririrtrrtttrtttttttrtTtTtTtTTeere 
D 2D 2D ge 
4 4 1?) a ASCII \ eececeeeeeeoseosoooooooesen \ 
91 F080 BC P.AAM: .LONG 17694784 
0060000' C .ADDRESS P.AAN 
10€00 7 P AAO Pine 7694720 
8 88 ' o00c8 “ADDRESS P.AAP 
20 CC P.AAR: .ASCII \ Connect request received at !%D- 
38g PR — 
010600 OF4 P.AAQ: .LONG 17694759 
0000000" 000F8 -ADDRESS P.AAR 
$8 0 é tS P.AAT: .ASCII \ from remote process !AS''\ 
21 O11A 
91 £0084 0120 P.AAS: .LONG 17694756 
09 00 9° 0124 -ADDRESS P.AAT 
28 ee $ 8 $ P.AAV: .ASCII \ for object ‘!AS''\ 
O19E001¢ 00144 P.AAU: .LONG 17694748 
0000000" 00148 .ADDRESS P.AAV 
Boies P.AAX: .BLKB 0 
010E0000 0014C P.AAW: .LONG 17694720 
00990000" 00150 -ADDRESS P.AAX 
; ; Fe P.AAZ . SCcIl \ eeeeeeeeoonooeoooeeooeooooooeoseooca 
D 2D 20 00172 
4 . Oot as ASCII \ eeceeeeceoeoeoooooeoeeoeeseeo \ 
91 £0040 00194 P.AAY: .LONG 17694784 
0000000" 00198 .ADDRESS P.AAZ 
019C P.ABB: .BLKB. 0 
00900090" BIA |e’ “ADDRESS FLABB 
53 5 8 O1A4 P.ABD: ASCII \SYSSNET\<O> 
8 60000" O85 ecg ONES PAD : 
00 ¢ 01B4 P.ABF: ASCII  \@\<0><0><0> 
o1 £0001 001B8 P.ABE: .LONG 17694721 
0090090" 01BC .ADDRESS P.ABF 
58 45 2€ O01CO P.ABG: ASCII \.EXE\ 


-PSECT SOWNS,NOEXE,2 


00000 NET CHANNEL : 
00002 MBX. CHANNEL : 
00004 MBX _MESSAGE : 


-BL 
00084 MBX_IOSB: 
-BLKB 


DEFAULT_TIME= 


D R. 
TWORK _SERVER 16-Sep 4 01:3 AX=11 Blisg-32 V4.0-74 Page 11. 
Wu 900 14-Sep -138 9}: i: $3 NETACP. SRCJSERVER.B32; ’ dj | 
.EXTRN LIBSASN_WTH_MBX 
«EXTRN LIBSSET_LOGICAL 
-EXTRN LIBSRUN7PROGRAM 
-EXTRN LIB$D0_COMMAND L1gsPur OUTPUT 
“EXTRN STRSCONCAT, SvSscery 
SEXTRN SYSSFAO, SY SETPRNT 
SEXTRN SYSSTRNLOG, SYSSBINTIM 
SEXTRN SYSSSETIMR, SYS$Q1OW 
-EXTRN SYSSDASSGN 
.PSECT $CODES,NOWRT,2 ¢ 
OFFC 00000 NETWORK_SERVER: Ch 
.WORD Save R Re. R3,R4,R5,R6,R7,RB,RI,R10,R11 3 0144 Ll! 
58 0000" CF 9E 90002 MOVAB NET_CHA NNEL RIT : Ll 
A 0000v cr 9E 9000 MOVAB FAO sou R10 : Ll 
9 000000006 60 9€ 900¢ MOVAB LIBSPU FER: R10 RO : Ll 
a 0000' CF 9€ 0001 MOVAB P, AAAS "y : Ll 
5E F054 CE «9E 00018 MOVAB $84 (SP ), SP ; Ll 
98 AD 1¢ 7D 00010 va #28, NFB DESC 3 0159 $1 
FFOB CD 80 8F 9A 00021 MOVZBL #128, TIME_DESC ; Ss) 
FFOC CD D4 00027 CLRL  ‘TIME_DESC+% ; ul 
OOAS «CCE 0100 8F 3C¢ 000 8 MOVZ2WL #256, BUFFER_DESC ; 
0048 CE 04 000 CLRL Bur FE 4 : 
54 AE 48 8F 9A 000 MOVZBL #72, ; 
58 AE D4 00038 CLRL KEY giao. : 
4C AE 02000000 BF DO 0003E MOVL  §#33554432, CMD_DESC > 0181 
50 AE D4 00046 CLRL_  CMD_DE : 
28 00 65 = 19 2c 00049 MOVCS #167 P. AAA, #0, #40, ITEM_LIST : 0192 
9¢ AD AO AD 9E 90056 MOVAB NFB, NFB_DESC+ : 020 
FFOC CD FFI0 «6CD OE 90055 MOVAB TIME BUF, TIME_DESC+4 : 020 
OOAS CE OOAC CE 9E 005¢ MOVAB BUFFER, BUFFER DESC+4 : 0204 
58 AE SC AE «(9E 0006 MOVAB KEYS, KEY_DESC#4 : 0205 
08 AE E 9E 00068 MOVAB EPID, ITEM_LIST+4 : 0206 
E 7C 0006C CLRQ = = (SPS : 0213 
7E D4 006 CLRL = = (SP) ; 
10 AE 9F 000 PUSHAB ITEM LIST ; 
7E 7¢ 0007 CLROQ = (SP Py : | 
ze D4 9007 CLRL (SP) : 
000000006 00 FB 0077 CALLS #7, SYSSGETJPI ; 
52 0D 9007t MOVL RO, STAT : : 
7A 52 EY 0081 BLBC _—« STATUS, ; 
02 AB OF 00 PUSHAB MBX. Pe kaneL : 0223 
B bp 087 PUSHL R11~ ; 
C 00089 CLRQ. = (SP) : 
2c «= ASsOOF: «00088 PUSHAB P.AAD ; 
000000006 9 F OO8E CALLS #5, LIBSASN_WTH_MBX F 
D 909 VL — RO STA AT : F 
C £ 98 BLBC stay ; 
0000v CF 00 FB 98 CALLS WS eye MAILBOX_READ : 0 3 
2c OA 00A4 CE 70 OOOA mova By ue FER “DESC, PRCNAM : 0239 
6E DD Ae PUSHL > 0245 
0 AE 9F 000A PUSHAB ER LNAM ; 
4 AE 9F OOOAB PUSHAB PRCNAM ; 
40 «AS OOF OAE PUSHAB P.AAF ; 
000000006 00 04 FB 0008 CALLS #4, SYSS$FAO ; 


é 
TWORK_SERVER 1b-5e -1984 01:39:23 AX-11 Bliss-32 V4.0-74 
WOu~900 1 ~3e07} 38% 04:33:43 NETACP.SRC Steven o3004 
2c «6AE «OOF 00088 PUSHAB PRCNA 
000000006 00 i : 8 CALLS #1 «SYSSSETPRN 
7E D4 00064 CLRL  =s_ = (SP) 
FF : CD OF 00066 PUSHAB TIME_DESC 
FF CD 9F OOOCA PUSHAB TIME-DESC 
C AS 9F 000C PUSHAB P.AAR 
000000006 90 ‘ F D CALLS 4% SYSSTRNLOG 
‘ D 08 MOVL RO, STATUS 
01 6 D 6 DB CMPL = STATUS, #1 
0 | ODE eo. 436s 
FFOB CD 1 A f OE MOVZWL DEFAULT_TIME, TIME_DESC 
FFOC CD : A p £6 OVL  DEFAULT-TIME+4, TIME_DESC+4 
FF 0 CD OF eC 1$ PUSHAB DELTA TIME 
FFOB8 CD 9F OOOF PUSHAB TIME DESC 
000000006 99 FB OOOF4 CALLS #2, SYSSBINTIM 
DO 000FB MOVL RO, STATUS 
16 ES OOOFE 2$: BLBC STATUS, 3$ 
E D4 00101 CLRL = = (SP) 
0000v CF 9F 00103 PUSHAB TIMEOUT_AST 
FFOO cD 9F 00107 PUSHAB DELTA_TIME 
—E D4 0010B CLRL = = (SP) 
000000006 00 04 FB 90100 CALLS #4, SYSS$SETIMR 
32 0 DO 00114 MOVL RO, STATUS 
0 52 ES 00117 3$: BLBS STATUS, 4$ 
O1EE 31 OO1IA BRW 
10 00 6E i 00 2c 90110 4$: MOVCS #0, (SP), #0, #16, NFB 
AO AD 17 90 00124 MOVB #23, NFB 
7E 7C 00128 CLRQ =(SP) 
7E 7C OO12A CLRQ  =(SP) 
7E D4 01 C CLRL = = (SP) 
98 AD 9F OO12E PUSHAB NFB_DESC 
7E 7C 00131 CLRQ 0 = (SP) 
90 AD 9F 00133 PUSHAB 1088 
38 po 01 PUSHL #56 
7E B C 001 MOVZWL NET_CHANNEL, ~-(SP) 
E D4 001 CLRL Pt 
000000006 00 ¢ FB 013p CALLS #12, SYS$QI0W 
56 DO 00144 MOVL RO, STATUS 
07 6 £9 0147 BLBC STATUS, 5$ 
56 90 AD ¢ O14A MOVZWL IOSB, STATUS 
17 56 EB OO14E BLBS STATUS, 
2c 56 D| O19! 5$: CMPL STATUS. rye 
6— 12 00154 BNEQ 3 
7E 68 3C¢ 0196 MOVZWL NET CHANNEL -(SP) 
000000006 00 o1 FS 0159 CALLS. # SYSSDASSGN 
50 10000004 &F B0 160 OVL #268435460, RO 
57 94 AD BO 168 6$: MOVL 1OSB+4 IPID 
10 00 6E 1. 00 C 016¢ MOVCS #0, (SP), #0, #16, NFB 
AO AD 22 90 0173 MOVB #34, NFB 
A2 AD 1 99 17 MOVB #8 NEB#2 
AG AD 1201001 8F 1 MOVL #302055440, NFB+4 
A AD 4 \3? CLRB NFB+ 
BO AD 64 AB 10 28 001 MOVC3 #16, P.AAJ, NFB+16 


ay 


—— 7 


Fo “11 Bliss-32 V4.0-74 Page || 
16-S$e0-1984 239: Ax-1 . ; (3) 
Ne TuDRE_SERVER en 31382 93:23:87 ENE TAC SRE Sseavenzose a 
SC AE D4 0018C ROVE TPID, _KEYS#4 O31 | 
5? D0 OO18F Mo : 0 
60 AE 64 AE B4 193 CLRW os) I ; 0328 
CE OF 00198 BUSHAB BUFFER_DESC 
00m SE be Soree CLRL  =(SP) : 
E oF 0019 PUSHAB KEY_DESC : 
8 AD SF OOIAT PUSHAB NFBODESC ; 
oe OOF Rhine BUSHAB 1088. : 
* 8 che PUSHL #56 : 
7E ga 3c O18 MOVZWL NET CHANNEL, -(SP) 
Pe ibis CALLS #13, SYSSazOW 
comma EE a ea : 
7 > S¢ cole MOVEWL J0sB, STATUS : 
6 90 AD £ BLBS STATUS, 8$ ; 0334 
16 a2 5S Rita re: Poem STATUS 
at Fe ooles A #1, LIBSSIGNAL : 0335 
000000006 00 6B 3C 001CD MOVZWL NET CHANNEL . = (SP 
of 01 FB 00100 CALLS #1, “SYSSD : 0336 
000000006 00 0143 31 0017 BRW 4§ eee i 0359 
gy ome NG BB oes at, ag ge Aes 
46 OA 8) 50 oolee mova SeRID SREB DESC #4 ¢ O36 
wet 03 vost 96 OO1ES OVAB 3¢no) tetas PTR + 0345 
50 gif BIg MOVES RO. FILESPEC * 0346 
34 AE 50 0 OO1FS AB 2(R1), FILESPEC+4 : 0347 
SBS ott ge gate Rovas (RO) CPI, Pt 0349 
1 3¢ 00201 MOVZWL 
cae 8) 6 00504 i B,J SRCHAA ag : Oaae 
u Fe noe 3k 0081 Loce. #47, NCB_DESC, @NCB_DESC+ 
woe a —— i 0355 
1 4 , PTR, ASCII_N : 
3c AE 51 4g AE C3 00 3 FETS eee test eee Ascii Neo Besere + 0326 
ws Si me © Ff Bassa CALLS i FAO_BUFFER 
ss 5 oD P CALLS ys LIBSPUT_OUTPUT * 0359 
69 1 FB 0029F PUSHAB P.AAM ; 
ga 008 it Me Sasa CALLS #1, FAO_BUFFER : 
R : 
69 it PB 6 CALLS 4 5 ee : 0360 
a of ae Sy CALLS #1. FAO_BUFFER 
2 © PD Ose CALLS AY «A BSPUT OUTPUT 0361 
? BF bosae PUSHAB PAG 
OOF 4 44 6 CALLS” #3, FAO_BUFFER 
- DD 0088 PUSH R 
| 
| 


| 
NETWORK_SERVER 18-56 =1984 01:39:23 AX-11 Bliss-32 V4.0-742 Pa 4 
Wha 000 12-08-1382 F5:28:g% PANT AL Bbdes soe ve - 83542 ™ 3 
69 01 FB 5 CALLS #1, LIBS$PUT_OUTPUT F | 
3¢ AE Hi PUSHAB ASCII_NCB_DESC t 0362) 
012 F B PUSHAB P,AAS : 
6A FB F CALLS 3, FAO_BUFFER : 
DD 00262 PUSHL R : 
69 01 FB 00264 CALLS #1, LIBSPUT_OUTPUT : 
34 AE 9F 00267 PUSHAB FILESPEC + 0363 
0144 9F 0026A PUSHAB P.AAU : 
6A FB 0 oF CALLS #2, FAO_BUFFER : 
DD PUSHL RO : 
69 01 FB 00273 CALLS #1 LIBSPUT_OUTPUT : 
014¢ c8 OF 0 76 PUSHAB P.AAW + 0364 
6A 1 FB OO27A CALLS #1, FAO_BUFFER : 
50 DD 00270 PUSHL RO ; 
69 01 FB 00 7F CALLS #1, LIBSPUT_OUTPUT : 
0194 CB SF 00282 PUSHAB P.AAY + 0365 
6A o1 FB 00286 CALLS #1, FAO_BUFFER : 
0 DD 00289 PUSHL RO : 
69 01 FB 00288 CALLS #1, LIBS$PUT_OUTPUT : 
019¢ CB SF 0028 PUSHAB P.ABA + 0366 
6A 01 FB 0029 CALLS #1, FAO_BUFFER 
50 DD 0029 PUSHL RO : 
69 01 FB 00297 CALLS #1, LIBSPUT_OUTPUT 
2¢ «AE OF O029A PUSHAB PRC > 0369 
000000006 00 01 FB 0029D CALLS #1, SYSS$SETPRN : 
5? 50 DO 002A4 MOVL RO, STATUS : 
0 52 E9 002A7 BLBC = STATUS, 13$ : 
44 AE F OO2AA PUSHAB NCB_DESC : 0373 
O1AC §=6C8 «OOF O02AD PUSHAB P.ABC : 
000000006 02 FB 00281 CALLS #2, LIBSSET_LOGICAL : 
52 50 DO 00288 MOVL 0; STATU : 
4D 32 E9 002BB BLBC STATUS, 13$ : 
4F OA 02 90 0028 MOVB #2, CMD_DESC+3 + 0375 
50 AE OG b08¢ CLRL CMD_DEST+4 + 0376) . 
34 AE 9F 002C PUSHAB FILESP : 0379 
0188 C8 9F 0028 PUSHAB P.AB : 
54 aE 9F O02CC PUSHAB CMD_DESC : 
000000006 00 03 FB OO2CF CALLS #3, STRSCONCAT : 
52 50 DO 00206 MOVL R TUS : 
2F 52 £3 00209 BLBC STATUS, 13$ ; 
38 «BE 34 AE 01c0 = C8 04 39 00 DC MATCHC #4, P.ABG, FILESPEC, @FILESPEC+4 + 0383 
03 13 002 BEQL 0$ ; 
53 04 DO 002E7 MOVL #4, R ; 
53 04 ce O2EA 10$:  SUBL2 #4.R : 
C O2ED BEQL 11$ ; 
34 AE 9F OOZEF PUSHAB FILESPEC + 0386 
000000006 00 01 FB 00 Fe CALLS #1, LIBSRUN_PROGRAM : 
OA 11 OOF BRB 12$ : 
4C AE 9F OO2FB 11$:  PUSHAB CMD_DESC : 0389 
000000006 : a: F CALLS #1, ~LIB$DO_COMMAND : 
D 05 12$:  MOVL RO, STATUS : 
1 E BLBS STATUS, 14$ ; 
52 DD 0030B 13$ PUSHL STATUS : 
000000006 99 4 FB OD CALLS #1 L 1BSS1GNAL : 
0 10000000 = &F c9 14 BISL #268435456, STATUS, RO : 
50 01 DO 00310 148 MOVL #1, RO : 0397 


; ih aie. od 
WG J¥pRx SERVER 1$-800-1964 O1:88:gF  YASSIL OLsegcB ye Bs249 rage Is 

04 00320 RET 3; 0399 
; Routine Size: 801 bytes, Routine Base: $CODE$ + 0000 


] 
6 
+ Se 1b-sen-1984 9b:28:9F HART Ade CSA seaven bane — as 


; 403 00 1 ROUTINE timeout_ast: NOVALUE = 
: 404 401 1 
; 405 4 § | j= 
; 4 4, 1! 
; 40 404 1 This AST is called when our timer has expired. Since the 
; 408 405 1! DCLSERV Q10 has not completed in the required amount of time 
; 409 +08 1! we assume that there are no more requests to be handled by this 
> 610 Or i prgcess. and we go away. This is done by cancelling the DECLSERV 
; 411 408 1! 10. 
; tig 409 1! 
: 41 410 1 ! Inputs: 
; 414 411 1! 
; 415 1 1! net_channel = Network channel which has DECLSERV pending. 
3 ry 0415 1! 
3; (41 0414 1 ! Outputs: 
; 418 415 1! 
; 64419 ai3 1! None 
: 420 417 1 !--- 
: 421 0418 1 
; 6 ¢ 0419 BEGIN 
: 4 0420 
: +$8 ee 1 SCANCEL(CHAN = .net_channel); ! Cancel the DECLSERV Q10 
; 426 04 : 1 END; 
-EXTRN SYSSCANCEL 
0000 00000 TIMEOUT_AST: 
«WORD Save nothing : 0400 
7E 0000" CF 3c¢ 00002 MOVZWL NET_CHANNEL, ~-(SP) : 0421 
00000000G 00 01 FB C0007 CALLS #1, ~SYSSCANCEL F 
04 OO00E RET 3 0423 


; Routine Size: 15 bytes, Routine Base: S$CODE$ + 0321 


et it a et ee 


L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
N 
s 
Ss 
$s 
Ss 
$ 


NETWORK SERVER 


; 4 4 
; : re 5 
3 2 1 r 5 
: O38 159 
3; 4 0 
3 : 5 ° 1 
; 4 g 
; 4 4 

; 439 5 
; 440 4 

; 441 4 

; 44 8 
: 44 439 
> 464 0440 
: 445 0441 
: 446 O4e 
3 447 044 
; 448 0444 
: 449 P 0445 
: 450 P 0446 
: 451 P 0447 
; +26 P 0448 
; 45 P 0449 
: 454 P 0450 
: 455 P 0451 
: 456 062g 
: 457 045 
; 458 0454 


; Routine Size: 


= POPROPOPOPONOPOPOPUPUPUPNIDN 9 2 2 


56 bytes e 


AX=11 Bliss-32 MR ed og 
NETACP.SRCJSERVER.B32; 


ROUTINE issue_mailbox_read: NOVALUE = 


Issue an asynchronous Q10 on the associated mailbox 
for the network channel waiting for broadcast messages. 


Inputs: 


Outputs: 


} 
; 
mbx_channel = Channel number for mailbox 
None 


BEGIN 


LOCAL 
status; 


signal_if_error( 
SQTO(FUNC = !0$_READVBLK, 

CHAN = .mbx_channel, 
EFN = 1, 
10SB = mbx_iosb, 
ASTADR = net_interrupt, 
Pl = mbx_message 
P2 = mbx~maxmsg)); 


! Issue read on mailbox 


END; 
.EXTRN SYS$QIO 
0004 00000 ISSUE_MAILBOX_READ: 
-WORD Save R2 
7E 7C 00002 CLRQ = =(SP) 
7E 7C 00004 CLRQ =(SP) 
7E 80 8F 9A 00006 MOV7BL #128, -(SP) 
0000" CF 9F OOOOA PUSHAB MBX_MESSAGE 
E 04 OO0E CLRL so = 
9000y CF OF 9 1 PUSHAB NET_INTERRUPT 
000° cr F 14 PUSHAB MBX~10SB 
1 DD 00018 PUSHL 
7E 0000' cr C O01 MOVZWL MBX_CHANNEL, -(SP) 
1 DD O001F USHL 
000000006 Q FB 00021 CALLS #12, SYS$QI0 
D 8 OVL RO, STATUS 
0 E 0 B BLBS STATUS, 1$ 
DD PUSHL STATUS 
000000006 00 1 FB 0 CALLS #1, LIBSSIGNAL 
04 1$: RET 


Routine Base: $CODE$S + 0330 


> 1 SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS5 


INETACES SRE SSERVER= B32: as 


1Sseoct9pe 01:59:33 


NETWORK SERVER 


NETWORK SERVER 
; 4 


; a‘ 


3; Routine Size: 


CLSERV). 


alled when the outstanding 010 
lbox completes. If the interrupt 
indicates that the network is going down, then make us 


1/0 on the network channel 


If network shutting down, 


Cancel any Pate DECLSERV 1/0 


Mark channe 


no longer active 


Do not re-issue mailbox read 


Issue another read on mailbox 


5 ! ROUTINE net_interrupt: NOVALUE = 
§ 1! This AST routine is § 
rs : on the associated ma 
ee i! © away by canceling an 
e§ : Tecst ikely a pending be 
65 1 ! Inputs: 
ae 
er 1! mbx_message = Mailbox message 
Be net_channel = Channel to network ACP 
rk 94 1! 
0 1 ! Outputs: 
«ee 
% ; ! None 
475 1 !--- 
74 «(1 
0475 BEGIN 
0476 
0477 IF .mbx_message (0) EQL msg$_netshut : 
pore THEN 
79 BEGIN 
0480 SDASSGN(CHAN = .net_channel); : 
0481 net_channel = 0; 
Bees RETORN; 
048 H 
0484 
0485 issue_mailbox_read(); 
0486 
0487 1 END; 


0000° 
7E 0000' 

000000006 00 
0000° 


AA AF 


31 bytes, Routine Base: S$CODES 


0000 00000 


NET_INTERRUPT: 
. WORD 


Save nothing 
Ran FE SEARS #59 


NET_CHANNEL, -(SP) 
#1, “SYSSDASSGN 
NE T_CHANNEL 


#0, ISSUE_MAILBOX_READ 


AX=11 Bliss-32 V4.0-742 
NETACP.SRCJSERVER.B32; 1 


bd 


Va 
8 

1 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
9 

F 
7F 


NETWORK SERVER 


494 


& 
4 
4 
: 
; 
; 
5 
5 
5 
5 


= 
“ 


Se ee Se Ge Se Se Se Se Se Se Se Se Se Se Se ee Ge Se Se Se teeese 


9 

x 
99 
00 
3 
08 
04 
05 
OF 
08 
09 
10 
1) 
18 
14 
15 
16 


; Routine Size: 


AX-11 Bliss-32 V4.0-74 
Sseaver.e3o71 


is 
NETACP.SRC 
4 3 1 ROUTINE fao_buffer (ctrstr,args) = 
4 BEGIN 


49 i This routine passes an ascii string through the FAO 
t3e system service with any number of specified parameters. 
9 
0498 OWN 
99 desc : vECTORt ' Result descriptor 
9900 buf : VECTORES12, BYTE); i Output buffer 
b20¢ MAP 
50 ctrstr : REF VECTOR(2), 
peo args : VECTOR(4); 
05 desc(0) = 512; ' Set result d ipt 
§309 gesct 0} = buf; pgs rotgyeny 
0508 S$faol(ctrstr=.ctrstr,outlen=desc ,outbuf=desc,prmlst=args); 
0509 RETURN desc; 
0510 1 END; 
-PSECT SOWNS,NOEXE,2 
0008C DESC -BLKB 8 
00094 BUF -BLKB 512 
-EXTRN SYSS$FAOL 
-PSECT S$CODES,NOWRT,2 
0004 00000 FAO_BUFFER: 
-WORD Save R2 
§ 0000" CF 9€ 0000 MOVAB bess. R2 
6 200 =s BF C 0000 MOVZWL #512, DESC 
04 A2 08 A2 YE 0000C MOVAB BUF, DESC+4 
08 AC 9F 00011 PUSHAB § 
2§ 0D Bete PUSHL 
0D 16 SHL 
04 AC OD Sole PUSHL CTRSTR 
000000006 98 04 FB 1 CALLS #4, SYSSFAOL 
0 62 9E 002 MOVAB DESC, RO 
04 000 RET 
38 bytes, Routine Base: S$CODE$ + 0387 


—_— 


roe 


N 6 
TWORK _SERVER 16-Sep-1984 01:39:23 AX-11 Bliss-32 V4.0-74 
W400 19-808-1 3b 93:23:97 NETACP.SRC SeavER “B32, “¢ 
1 
218 §a12 4 0 ELDON 
«EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 
SOWNS 660 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS £35 NOVEC *NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 941 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
sooswese Syabol§ ecceceso Pages Processing 
File Total Loaded Percent Mapped Time 
_$255$DUA28: CSYSLIBIJSTARLET. 52; 1 9776 26 0 581 00:01.0 
~$255$DUA28: CSHRLIBINET.L32;1 1279 16 1 63 00:00.9 
Information: 1 
Warnings: 0 
Errors: 0 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:SERVER/OBJ=OBJ$:SERVER MSRC$:SERVER/UPDATE=(ENHS: SERVER) 


; pize: 941 code + 1112 data bytes 


un Time 319. 
orden y Hass OP eP- 
Lines/CPU Min: 
ee hk fie) 22615 

"Y Used: 252 pages 
— ation Complete 


ro 


027 AH-BT13A-SE | " | NT CORPORATION 


VAX/VMS V4.0 “AND PROPRIETARY 


